unit dbschema_Model;
Interface
Uses
  AdoDB,Forms,windows,db,sysutils,AbstractDAO,dbschema_AbstractModel;
Type
  Ttables=Class(TAbstracttables)
  end;
  Tcolumns=Class(TAbstractcolumns)
  end;
  Tindexes=Class(TAbstractindexes)
  end;
  TfrKeys=Class(TAbstractfrKeys)
  end;
  Tsystypesx=Class(TAbstractsystypesx)
  end;
  Tusertypes=Class(TAbstractusertypes)
  end;
  Tdefaults=Class(TAbstractdefaults)
  end;
  Ttrigers=Class(TAbstracttrigers)
  end;
  Tviews=Class(TAbstractviews)
  end;
  Tprocedures=Class(TAbstractprocedures)
  end;
  Tfunctions=Class(TAbstractFunctions)
  end;
var
  tables:Ttables;
  columns:Tcolumns;
  indexes:Tindexes;
  frKeys:TfrKeys;
  systypesx:Tsystypesx;
  usertypes:Tusertypes;
  defaults:Tdefaults;
  trigers:Ttrigers;
  views:Tviews;
  procedures:Tprocedures;
  functions:Tfunctions;
 implementation
Initialization
  tables:=Ttables.Create;
  columns:=Tcolumns.Create;
  indexes:=Tindexes.Create;
  frKeys:=TfrKeys.Create;
  systypesx:=Tsystypesx.Create;
  usertypes:=Tusertypes.Create;
  defaults:=Tdefaults.Create;
  trigers:=Ttrigers.Create;
  views:=Tviews.Create;
  procedures:=Tprocedures.Create;
  functions:=Tfunctions.create;
end.